% GAUTIER LE BIHAN - 2020
% Replication files for "Shocks vs Menu Costs: Patterns of Price Rigidity in an Estimated Multi-Sector Menu-Cost Model?" Review of Economics and Statistics
%
% Figure P + Table 4
clear;
tic


addpath('..\..\Utilities')  

load actual_moments_k
load res_1sect19b
param=res_1sect19b

s=8
for jj=1:2;
    p0=tanh(param(jj,1));
    mu_c=param(jj,2);
    sig_eps_a=exp(param(jj,3));
    rho_a=0.6946;   
    weight_j=0.57;
    sm_m=param(jj,5);
    param_e=[p0 mu_c sig_eps_a rho_a];
   [moments, VC, IRF]=geNCalvoPlus_2Agg(sm_m, p0, mu_c, sig_eps_a, rho_a, weight_j);
  stat_nov19b(jj,:)=[ param_e moments VC]
  save stat_nov19b stat_nov19b;
  IRF_agg_19b(jj,:)=[ IRF]
  save IRF_agg_19b IRF_agg_19b;
end
